home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / find.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.2 KB  |  33 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8. //---------------------------------------------------------------------------
  9. USEFILE("readme.txt");
  10. USERES("find.res");
  11. USEFORM("FindCust.cpp", fmFindCust);
  12. USEFORM("CUST.CPP", fmCustomers);
  13. USEFORM("ABOUT.CPP", fmAboutBox);
  14. USEDATAMODULE("DM.cpp", DM2);
  15. //---------------------------------------------------------------------
  16. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  17. {
  18.    try
  19.    {
  20.     Application->Initialize();
  21.     Application->CreateForm(__classid(TfmCustomers), &fmCustomers);
  22.     Application->CreateForm(__classid(TfmFindCust), &fmFindCust);
  23.     Application->CreateForm(__classid(TDM2), &DM2);
  24.     Application->Run();
  25.    }
  26.    catch (Exception &exception)
  27.    {
  28.         Application->ShowException(&exception);
  29.    }
  30.     return 0;
  31. }
  32. //---------------------------------------------------------------------------
  33.